Horoscope Companion: Gemini/Horoscope Companion: Gemini.iso/pc/gemini/cab.dir/Internal_4.ls

Text File | 1996-10-08 | 865 b | 19 lines

on mouseDown
  global gSelectedAnswer, gAnswerTextSpriteNum
  cursor(4)
  set questionText to the number of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  set selQuestion to word 1 of line the mouseLine of field questionText
  if the mouseLine <> gSelectedAnswer then
    if line the mouseLine of field questionText <> EMPTY then
      set gSelectedAnswer to the mouseLine
      set n1 to 2
      set n2 to the number of chars in selQuestion - 1
      set whichAnswerText to char n1 to n2 of selQuestion
      set whichAnswerText to the number of member ("ABB" & whichAnswerText && "answer text") of castLib the castLibNum of sprite gAnswerTextSpriteNum
      set the memberNum of sprite gAnswerTextSpriteNum to the number of member whichAnswerText
      updateStage()
    end if
  end if
  hFingerPointingCursor()
end